home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK1.toast / Development Kits (Disc 1) / Communications Toolbox / CommToolbox 1.1 / Interfaces / PInterfaces / CTBUtilities.p < prev    next >
Encoding:
Text File  |  1994-11-21  |  3.3 KB  |  146 lines  |  [TEXT/MPS ]
  1. {************************************************************
  2.     CTBUtilities.p
  3.     Pascal Interface to the Macintosh Libraries
  4.  
  5.         Copyright Apple Computer, Inc. 1988-1991
  6.         All rights reserved
  7. ************************************************************}
  8.  
  9.  
  10. {$IFC UNDEFINED UsingIncludes}
  11. {$SETC UsingIncludes := 0}
  12. {$ENDC}
  13.  
  14. {$IFC NOT UsingIncludes}
  15.     UNIT CTBUtilities;
  16.     INTERFACE
  17. {$ENDC}
  18.  
  19. {$IFC UNDEFINED UsingCTBUtilities}
  20. {$SETC UsingCTBUtilities := 1}
  21.  
  22. {$I+}
  23. {$SETC CTBUtilitiesIncludes := UsingIncludes}
  24. {$SETC UsingIncludes := 1}
  25. {$IFC UNDEFINED UsingMemory}
  26. {$I $$Shell(PInterfaces)Memory.p}
  27. {$ENDC}
  28. {$IFC UNDEFINED UsingPackages}
  29. {$I $$Shell(PInterfaces)Packages.p}
  30. {$ENDC}
  31. {$IFC UNDEFINED UsingAppleTalk}
  32. {$I $$Shell(PInterfaces)AppleTalk.p}
  33. {$ENDC}
  34. {$SETC UsingIncludes := CTBUtilitiesIncludes}
  35.  
  36. CONST
  37.  
  38. { version of Comm Toolbox Utilities }
  39. curCTBUVersion        = 2;
  40.  
  41. {    Error codes/types    }
  42. ctbuGenericError    = -1;
  43. ctbuNoErr            = 0;
  44.  
  45. TYPE
  46. CTBUErr = OSErr;
  47.  
  48. CONST
  49.  
  50. {    Choose return codes}
  51. chooseDisaster        = -2;
  52. chooseFailed        = -1;
  53. chooseAborted        =  0;
  54. chooseOKMinor        =  1;
  55. chooseOKMajor        =  2;
  56. chooseCancel        =  3;
  57.  
  58. {    NuLookup return codes    }
  59. nlOk                =    0;
  60. nlCancel            =    1;
  61. nlEject                =    2;
  62.  
  63. {    Name filter proc return codes    }
  64. nameInclude            =    1;
  65. nameDisable            =    2;
  66. nameReject            =    3;
  67.  
  68. {    Zone filter proc return codes    }
  69. zoneInclude            =    1;
  70. zoneDisable            =    2;
  71. zoneReject            =    3;
  72.  
  73. {    Values for hookProc items        }
  74. hookOK                =    1;
  75. hookCancel             =    2;
  76. hookOutline            =    3;
  77. hookTitle            =    4;
  78. hookItemList        =    5;
  79. hookZoneTitle        =    6;
  80. hookZoneList        =    7;
  81. hookLine            =    8;
  82. hookVersion            =    9;
  83. hookReserved1        =    10;
  84. hookReserved2         =    11;
  85. hookReserved3        =    12;
  86. hookReserved4        =    13;
  87.  
  88. {    "virtual" hookProc items    }
  89. hookNull            =    100;
  90. hookItemRefresh        =    101;
  91. hookZoneRefresh        =    102;
  92. hookEject            =    103;
  93. hookPreflight        =    104;
  94. hookPostflight        =    105;
  95. hookKeyBase            =    1000;
  96.  
  97. TYPE
  98. {    NuLookup structures/constants    }
  99. NLTypeEntry = RECORD
  100.     hIcon: Handle;
  101.     typeStr: Str32;
  102.  END;
  103.  
  104.  
  105. NLType         = ARRAY [0..3] OF NLTypeEntry;
  106.  
  107. NBPReply = RECORD
  108.     theEntity:    EntityName;
  109.     theAddr:    AddrBlock;
  110.  END;
  111.  
  112.  
  113. NameFilterProcPtr = ProcPtr;
  114. ZoneFilterProcPtr = ProcPtr;
  115.  
  116.  
  117. FUNCTION    InitCTBUtilities: CTBUErr;
  118. FUNCTION    CTBGetCTBVersion: INTEGER;
  119.  
  120.  
  121. FUNCTION    StandardNBP(where: Point;prompt: Str255;numTypes: INTEGER;typeList: NLType;
  122.                  nameFilter: NameFilterProcPtr;zoneFilter: ZoneFilterProcPtr;hookProc: DlgHookProcPtr;
  123.                  VAR theReply: NBPReply): INTEGER;
  124.  
  125. FUNCTION    CustomNBP(where: Point;prompt: Str255;numTypes: INTEGER;typeList: NLType;
  126.                nameFilter: NameFilterProcPtr;zoneFilter: ZoneFilterProcPtr;hookProc: DlgHookProcPtr;
  127.                userData: LONGINT;dialogID: INTEGER;filterProc: ModalFilterProcPtr;VAR theReply: NBPReply): INTEGER;                   
  128.  
  129.  
  130. { Obsolete synonyms for above routines }
  131. FUNCTION    NuLookup(where: Point;prompt: Str255;numTypes: INTEGER;typeList: NLType;
  132.                  nameFilter: NameFilterProcPtr;zoneFilter: ZoneFilterProcPtr;hookProc: DlgHookProcPtr;
  133.                  VAR theReply: NBPReply): INTEGER;
  134.  
  135. FUNCTION    NuPLookup(where: Point;prompt: Str255;numTypes: INTEGER;typeList: NLType;
  136.                nameFilter: NameFilterProcPtr;zoneFilter: ZoneFilterProcPtr;hookProc: DlgHookProcPtr;
  137.                userData: LONGINT;dialogID: INTEGER;filterProc: ModalFilterProcPtr;VAR theReply: NBPReply): INTEGER;
  138.                
  139.  
  140. {$ENDC}    { UsingCTBUtilities }
  141.  
  142. {$IFC NOT UsingIncludes}
  143.     END.
  144. {$ENDC}
  145.  
  146.